From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 7 Jun 1993 05:30:07 +0000 (+0000)
Subject: (make_event_array): Ignore bits above CHAR_META.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95524
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c9ca4659ed223b4e94f686a20f3a6cbc4ccfeecf;p=emacs.git

(make_event_array): Ignore bits above CHAR_META.
---

diff --git a/src/alloc.c b/src/alloc.c
index a6f554ad086..e78db2af9a6 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -958,9 +958,10 @@ make_event_array (nargs, args)
 
   for (i = 0; i < nargs; i++)
     /* The things that fit in a string
-       are characters that are in 0...127 after discarding the meta bit.  */
+       are characters that are in 0...127,
+       after discarding the meta bit and all the bits above it.  */
     if (XTYPE (args[i]) != Lisp_Int
-	|| (XUINT (args[i]) & ~CHAR_META) >= 0200)
+	|| (XUINT (args[i]) & ~(-CHAR_META)) >= 0200)
       return Fvector (nargs, args);
 
   /* Since the loop exited, we know that all the things in it are